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rc: 


‘go-to #003 , : 
eo teatiese,. a 
Toe : 7 BITSETCLSD(4)215915319@ 
CALL. ComPar<39> 


IF CITEeST? Seer, 60 «+ S28 


“all 
Vie 


11 00448 

11 00449 

{1 00450 

14 90451 

| eget ‘te ‘00452 
471" S528 99 CONTINUE 11 00453 
478 as CALL BITSETCLSD( 43215515513 11 060454 
ad ies | Ga 10 4 Li 00455 
474. © 7* LOW | 7? BITSETCLSD(4)915:15:038 bi -po456 
473. 60 | CONTINUE . 11 90457 
476°. oy 2 Babs CONPARC 40> 11 °90453 
Sy CALL DIA 11 p04593 
478. : CALL SIT SEVELSDCAI61S) 15900 11 00460. 
479 ‘GB TO 4 1! 00461 
480 c 5 if 00462 
481 Cc ?*TRANSPRRENT’*=" CLOGIC> S7BITSETCLSD(35514s24s IVALUEIS 11 00463 
462 33 CONTINUE 11 00464 
483 |, CALL COMPAR 41> 11 °00465 
484 If CITESTS S23, 62 4 329 14 oodéeé 
485 829 CONTINUE 11 00467 
486 CALL COMPARCA?D 11 00468 
497 - CALL DIAG | ‘ 11 00463 
488 ASSIGN 64 TO IRADD 11 00470 
4¢9 Go rae 9002 11 00471 
490 64 CONTINU 11 00472 
aca CE . | {1 00473 
492 C------GO;TO CHECK FOR SYNCHRONOUS 11 00474 
493 asd} 99 TO IRADB 11 00475 
494 co tO $00 | 11 00476 
495 $964 CONTINUE Li 00477 
496 GALL BITSETCLSD(32s14.14s IVALUED 11 00476 
497 co To 4 , 11 00473 
49s c ) : ” '2.PUTLSDS 11 00480 
499 63 ‘CONTINUE —— 11 00481 
Soo é CONTINUE 11 00482 
50} CALL COMPAR(42) 11 00483 
So2 CALL DSIAG- 11 00484 
S03 Cc 11 00485 
S0q C------ CHECK FOR MODE = ASYNCHRONDUSs ECHO = TRUE AND 11 00486 
S05 ° C---<-- LINE-~TYPE »NE. HALF-DUPLEX 11 00487 
506 CALL BITGET Gls its iis LSBCID3 11 00488 
So? CALL BITGET CJs 24s 14) LED¢€3) 11 00489 
5038 CALL BLTGET CK» 10s 09; L3DC1)3 11 00496 
593 ASSIGN 93363 TO IRADD 11 00491 
S10 - IF €CI .E€Q@, 0) .AND. CJ .E£@. 123 LAND. CK .ME. 02) GO To 3005 L1 00492 
Sii 9863 CONTINUE 11 00493 
Si2é cC 11 00494 
S13 C+----- REWRITE THE LSD TO THE FILE 11 00495 
Sid CALL PUTLED 11 00496 
S15 Go To 1 11 80497 
S16 CC BM one -se ei eee ee oe se eee see se ee ne ee een ** 11 0049¢ 
517 C m™ ** 11 00499 
Sis c ™=™ END OF LINE SECTION **e 11 GO5R0 
519 C =m **® 14 00501 
SS) ( BBeet cos eciungweeeens cue ndnucke eee eee eee Ree Soe eee **® 11 O050e 
S21 c > 11 oO5n% 
522 2 CONTINUE ii 00504 
S23 ( SMe soso ee eee ee ee eee chee sess ne see esha sine e esse eeeaen= ** 11 00505 
St¢ C mM *€* 11 00506 
S25 Cc #™ START OF TERMINAL SECTION ** 11 GOSO? 
S26 Cc me **# 11 GOERS 
S22 C Bhawan owe eee sete ee nee ee eee eer rn este e rrr essecnsseen= *X 11 00502 
see ec 7C'TERMINAL® 11 90510 
529 CALL COMPARC43> ii 90511 
S30 . IF CITEST) 530» 68 » 5330 11 00512 
531 530 CONTINUE 11 00513 
Sse Cc ‘1 O0Sid 
S33 C------CLEAR OUT THE COMMON TCL ii OOSLS 
S34 109120 I = ils § 11 GO0S1¢ 
535 9120 TCDCID = 0 11 00517 
536 LSDN = 0 11 00518 
SS { MWSSs5 no Slee nce cee Sees eee ete eee ae ewe eae ne cee t-te ee ease recess WE 14, 2ESTS 
538 C mm SETUP TCD DEFAULT VALUES | ** if OOSen 
$59 MN a eee a i able ee i ee al a Sia eee ama e ieee aioe aise das ea i **® 11 00521 
S40 TCD(2) = 135 11 00522 
S41 TCD¢3) = 1 11 o05e23 
542 C 11 00524 
$43 C~<«<-<-- GO TO PARSE TUID AND SETUF TIB i1 00525 
S44 C s?7TUILDA 11 00526 
545 CALL TUID 11 00527 
S46 CALL DIAG 11 005238 
S47 C er 11 00523 
548 CALL COMPARC1) 11 005350 
549 CALL DIAG 11 00521 
550 Cc $¢ 11 Go522 
551 69 CONTINUE 11 005323 
552 ' 1i 00534 
553. CALL COMPARC2? 11 00525 
S54 C Y*CODE''=" 11 00536 
555 CALL COMPAR‘C44) 11 00537 
556 If CITEST) S3ie 72 3 331 11 90536 
S57 S31 CONTINUE 11 00523 
558 CALL CONPARC4D 11 00542 
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